home *** CD-ROM | disk | FTP | other *** search
/ Immoral Angel 1 / Immoral Angel 1.iso / mac / PROGRAM / MOVIE4.DXR / MOVIE4.DXR / 00041_packageV,up.ls < prev    next >
Encoding:
Text File  |  1997-07-11  |  310 b   |  15 lines
  1. on mouseDown
  2.   global selectedvideonum, status
  3.   if status <> EMPTY then
  4.     if the puppet of sprite 19 = 1 then
  5.       beepsound()
  6.       exit
  7.     end if
  8.   end if
  9.   eracemenudownbutton()
  10.   set selectedvideonum to char 1 of string(selectedvideonum) & "P"
  11.   if button() then
  12.     go(selectedvideonum)
  13.   end if
  14. end
  15.